home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swaga_c.zip
/
CURSOR.SWG
/
0004_Show-Hide Cursor.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-05-28
|
376b
|
27 lines
Uses Crt;
Var
Continue : Char;
Procedure HideCursor; Assembler;
Asm
MOV ax,$0100
MOV cx,$2607
INT $10
end;
Procedure ShowCursor; Assembler;
Asm
MOV ax,$0100
MOV cx,$0506
INT $10
end;
begin
Writeln('See the cursor ?');
Continue := ReadKey;
HideCursor;
Writeln('Gone! ');
Continue := ReadKey;
ShowCursor;
end.